'needs pv1000fillram
sub pv1000filltile(txpos as uinteger,typos as uinteger,txsiz as uinteger, tysiz as uinteger, tvl2 as ubyte):
  'dim txlp as uinteger at $BC00
  dim tylp as uinteger at $BC02
  for tylp=0 to tysiz-1
    pv1000fillram($B800+(typos+tylp)*32+txpos,tvl2,txsiz)
    'for txlp=0 to txsiz-1
    '  poke $B800+(typos+tylp)*32+(txpos+txlp),tvl
    '  next
    next
  end sub

'- replace with ldir

'sub aquariusputtile(txpos as uinteger,typos as uinteger,txsiz as uinteger, tysiz as ubyte, tadr as uinteger):
'  dim txlp as uinteger at $3900:dim tylp as uinteger at $3902
'  for tylp=0 to tysiz-1
'    for txlp=0 to txsiz-1
'      poke $3000+(typos+tylp)*40+(txpos+txlp),peek(tadr+(tylp*txsiz)+txlp)
'      poke $3400+(typos+tylp)*40+(txpos+txlp),peek(tadr+(txsiz*tysiz)+(tylp*txsiz)+txlp)
'      next:next
'  end sub
